home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / c / ackerm.bwr < prev    next >
Encoding:
Internet Message Format  |  1988-08-16  |  4.8 KB
  1. From: Francis Wright <fjw@uk.ac.qmc.maths>
  2. Date: Wed, 11 Feb 87 10:56:50 GMT
  3. Subject: Getting Kermit to work on Acorn Cambridge Workstation
  4.  
  5. In reply to Dudley Long's query, yes, it does work at least on an Acorn
  6. Cambridge Coprocessor, although attempts to change the line speed from within
  7. kermit do not seem to work.  However, the speed can be changed with *fx calls
  8. before kermit is entered, and that seems to work.
  9.  
  10. We are actually running a version that we got on disc, which omits the files
  11. ACKERM.DOC and ACKERM.HLP that are online at Lancaster.  The latter is the
  12. release notice, which contains a brief description of which source file does
  13. what, and so is of some minor use.  (However, I hope that there are less errors
  14. in the source files than there are in ACKERM.HLP!)  ACKERM.DOC is just an
  15. identical (as far as I can see) copy of the Unix C-Kermit manual, with no
  16. description of the peculiarities of Panos-Kermit, so I wasted my time pulling
  17. it from Lancs!
  18.  
  19. [Ed. Actually, ACKERM.DOC is just a copy of the C-Kermit manual that I added to
  20. the files. I don't have any Panos-specific documentation at all - if anyone has
  21. some on a machine, please mail it in and I'll it to the files. ACKERM.HLP is my
  22. typing in of the release notes that Acorn sent me. Any typographical errors are
  23. my fault!] 
  24.  
  25.  
  26. From:    Majoc@uk.ac.nott.maths  3-APR-1987 17:09
  27. To:    SYSKERMIT
  28. Subj:    ACW Kermit - baud rate bug fix
  29.  
  30.  
  31. Received: from Tuck.Maths.Nott.AC.UK by Robin.Cs.Nott.AC.UK id a029132;
  32.           3 Apr 87 16:44 BST
  33. Date: 03 Apr 87 15:44:02 UT (Fri)
  34. To: syskermit@uk.ac.lancaster.central.vax1
  35. Cc: my-kermit <majoc@uk.ac.nott.maths>
  36. Subject: ACW Kermit - baud rate bug fix
  37. From: Martin J Carter <majoc@uk.ac.nott.maths>
  38. Sender: Majoc@uk.ac.nott.maths
  39.  
  40. There's a pernicious bug in Acorn's version of C-Kermit for the ACW443.
  41. This prevents baud-rate changes from being obeyed when the poor unsuspecting
  42. user goes into connect mode (to set up a remote server Kermit), but only
  43. when ACW Kermit (attempts to) start file transactions.  This is most
  44. confusing, especially to first-time Kermiteers ...
  45.     The bug fix is to re-instate some missing code from conect() in
  46. ckpcon-c (alias acpcon.c), which appears to have been rewritten from
  47. scratch.  Herewith the context diffs:
  48. +++++++++++++++
  49. *** oldpcon.c    Mon Mar  2 12:19:42 1987
  50. --- newpcon.c    Fri Apr  3 08:48:06 1987
  51. ***************
  52. --- 32,53 -----
  53.   
  54.   #define send(c) putinbf(rs423outbf, c)
  55.   
  56.   /****************************************************/
  57.   /*  Procedures to do Unix termcap functions on ACW  */
  58.   /****************************************************/
  59.   
  60.   extern int XFindOutput() asm;
  61.   extern XSWriteByte() asm;
  62.   
  63. + extern int speed;    /* [majoc 870312] needed to pass on to ttvt() */
  64. + extern int flow;    /* [majoc 870312] ditto (?) */
  65.   int rawvdu = -1;
  66.   
  67.   vdus(s) char *s; { while(*s) XSWriteByte(rawvdu, *s++); }
  68.   #define vdu(c) XSWriteByte(rawvdu, c)
  69.   
  70.   bbc_wipe(lx,ly,ux,uy) int lx,ly,ux,uy; {
  71.     if (lx > ux) return; if (ly < uy) return;
  72.     vdu(28); vdu(lx); vdu(ly); vdu(ux); vdu(uy); vdu(12); vdu(26);
  73.   }
  74.   
  75. ***************
  76. *** 230
  77. !   initrs(); emul_start(); send(CR); 
  78. --- 222,250 -----
  79.   
  80.   /**************************************************/
  81.   /*  C O N E C T  --  Perform terminal connection  */
  82.   /**************************************************/
  83.   
  84.   conect() {
  85.     int key,max,min,block,doneCtrlS,ok,userok;
  86.     int head = 0, tail = 0, size = 0; char buf[BUFSZ];
  87.     printf("\nYou are now connected to your host computer\n");
  88.     printf("Press SHIFT-F0 to return to local kermit\n\n");
  89. ! /* Inserted 870311 by M J Carter [majoc], Nottingham Uni. */
  90. !   if (ttvt (speed, flow) < 0) {
  91. !    conres();
  92. !    printf ("Sorry: can't condition line (ttvt() failure)\n");
  93. !    return (-2);
  94. !   }                       
  95. ! /*  else printf ("conect(): ttvt() succeeds\n");    /* debugging insult. */
  96. ! /* End of majoc's insert (copied from original ckucon.c). */
  97. !   initrs(); emul_start(); /* send(CR); */
  98.     doneCtrlS = 1; ok = userok = 1; max = min = 0;
  99.     for (;;) {
  100.       if (doneCtrlS) {
  101.         if (min+size < FEW) ok = 1;
  102.         if (ok && userok) { send(CTRL_Q); doneCtrlS = 0; }
  103.       } else if ((min+size == 0) || (max > FEW)) {
  104.         min = nrsbuf(); 
  105.         if ((min > LOTS) || (size > BUFHI)) ok = 0;
  106.         if (! (ok && userok)) { send(CTRL_S); doneCtrlS = 1; }
  107.       }
  108. +++++++++++++++
  109.  
  110. I've also left a copy of the complete file in
  111. /usr/spool/uucppublic/kermit/ac/acpcon.c
  112. on cs.nott.ac.uk, in case that makes it any easier for you to update
  113. the Lancs copy; if you can't get it, I can mail it you under seperate
  114. cover.
  115.  
  116. Apologies for holding back on this ... I haven't even got round to that
  117. nervous breakdown I promised myself once the rush was off.
  118.  
  119. Share and Enjoy,
  120.  
  121.     Martin J Carter
  122.  
  123. PS: on scanning this code afresh before sending this message, it's occurred
  124. to me that I probably haven't done things right.  If anybody cares to do
  125. it properly, I shall be duly repentent.
  126.